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The PDP-15 High Speed Reader Test verifies the operational status of the 
reader by performing tests on the reader's control logic and mechanics. 

The control logic tests include error halts with provisions for looping 
on any failing test . The mechanical tests provide TTY print-outs in 
case of error. A test tape is provided for use with the mechanical test. 
This should be used in lieu of a tape loop, since a loop will not provide 
proper test operation. 

The control logic tests should be run first, and then the mechanical tests 
(total of 3) must each be manually start.ed by the operator. 

P. REQUIREMENT!: 

Equipment 

A standard PDP-15 equipped with a high speed reader. 

Storage 

The program requires approximately 3250 (octal) locations in field 0. 

3. LOADI IG PROCEDURE 


a. Set the ADDRESS switches to 17700; the BANK MODE switch on a 1. 

b. Press I/O RESET, and then READ-IN. 

c. The program is not self-starting at the completion of loading. 

h. STARTING PROCEDURE 

Test Tape Generator - 200 

Timing Loop for Setup - 250 

■Sontrol Logic Tests - 300 

Out of Tape Test - 1^01 

Data and lOT tests - 2100 

Variable Reader Speed Test - 2U00 

Read Randomly and Stall Randomly - 2500 

The Sontrol Logic Test contains a series of individual tests which are 
automatically executed by the program. The individual starting addresses 
may be found after the Table of Error halts appearing in section 6.1. 



OPERATING PROCEDURE 


A test tape is supplied with the program. If a new test is desired, a 

subroutine is included which will punch the necessary patterns. To punch 
one of the two patterns necessary, use the procedure below. If a new 
test tape is not needed go on to section 5.1- 

a. Set the ADDRESS switches to 200. 

b. Set the AC switches to indicate the pattern desired. 

ACS 0 on a 1 = Punch alternate frames of all I's and O's. 

ACS 1 on a 1 = Punch a binary count. 

ACS 2 on a 1 = Punch all I's. 

r. l/O RSSKT , l.hfri STAH'I'. ’Ili" t,<-- rn will \>i- iiunchf'l uni.i I 

i'KOCUAM ir; . 

If a t.apf? loop is to be rruide , the pattern mu:;! corit,iriued at the spli'-'-. 
l-ieader Setup Routine 

The use of this 'routine is inl.ended for Field Service and F’roduction only. Its 

purpose is to provide a variabie delay timing loop to expedite the setup of 

the reader timing. 

A tape with a punched pattern of alternate framerj of all I's and O's is usually 
used for the setup procedure. However, the routine will allow any pattern to 
be used. The Test Tape Generator will punch the required pattern. 

a. Set the ADDRESS switche:. to 250. 

b. Place the tape in f.he reader. 

c. iiel the ACS to OOOOOD. This will giv<- a .';t,n,ll (d'lny) of uf/frox i mn I y 
: ”>0 rni I I i seconds . 

il. I fil'.'SET .and l.iicn STAH'I'. 

Tli<’ roi.itino roads |0 fr'arne;; unil Idi'-n stal Is; a.noffj'-r li< fruno;; ,'i,rid afiot^PT' sf’ili, 
I'tc. Tiio st.all tdrrio rnn.y t;o v/iried wiiil'- i.h'- [jro/.'raun is, runriing. 

Program Operating Procedure 

5 . i Control Logic Tests 

The tost tape supplied contains the necessary test patterns for all control logic 
tests. The pattern used is an all ones pattern. This pattern is duplicated 
three times on the test tape even though only one pattern is used. Blank tape 
separates each pattern. One pass of the control logic tests requires approximate ly 
one foot of test 'tape. 
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Any errors encountered will cause a program halt. Ihe nature of the error 
is determined by the address of the halt. The program will not execute the 
next test until the error is corrected. Ihe halts are tagged, and may be 
identified fran the table of error halts appearing at the end of this document. 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. 

b. Set the ADDRESS switches to 300, and all PCS equal to 000000. 

c. If and API option is installed, place ACS 6 on a 1. 

d. Press I/O RESET, and then START. 

The program will respond with a carriage return and line feed cti the KSR-33 
teleprinter, and begin Ibst 1. 

Assuming no errors the program will halt with C(PC) = 1401. 

The leader No Tape Test is performed next. 

e. Remove the test tape frcm the reader. 

f. Set the ADDRESS switches to 1401. 

g. Press I/O RESET, and then START. 

Assuming no error halts, the program will halt with C{PC) = 1434. 

h. Place tlie test tape in the reader and press continue. 

Assuming no error laalts, thie program will halt with C(PC) = 1444 

i. Turn the Reader "GET LINE" to test for setting the "NO-TAPE" flag. 

j . Press CCNTINUE 

The data ard mechanical tests are performed next. 

'There are thiree data/ mechanical tests. Each test must be manuadly started by 
the operator. All tliree tests use the same tests tape pattern v4iich is a 
binary count. 

When placing the test tape in the reader, place the punched pattern over the 
reader's photo cells. This is necessary' to enable the program to synchronize 
properly. When starting any of the three tests sections the program will read 
the test tape until it finds one frane of all O's. Ihe program then enters 
the test sec[uence. 

If an all O's character cannot be found, the message "CANNOT SYNC" is printed, 
followed by a halt with C{PC = 2017 (tagged PRHLT4) . Press CXJ3TINUE to try again. 
Inability to sync may be a result of the lack of an all O's character, or 
possibly the reader buffer will not cle2u:4. 

5.2 Basic Data Checks 


This tost requires a fan-folded best tape v/ith a puTched binary' count pattern 



a . Place the test tape in the reader with the punched pottern over the 
reader's photo cells. 

b. Set the ACS to 000000. 

c. Set the ADDRESS switches to 2100. 

d. Press the I/O RESET, and then START. 

The data check test is divided into four parts. A test is first made 
using RSA and RRB, followed by RSA and RCF. Selecting the reader In 
binary mode is then done by using RSB and RRB, followed by RSB and 
RCF. The four parts are designated as A, B, C and D respectively. 

Assuming no ei. jrs, the program will halt with the I''' = 2243. If the 
test proves error-free go on to paragraph 5.3. 

Error Identification 

If an error occurs a print-out takes place ntving in order, the subtest, 
what the data being read was expected to be, and the data read from 
the reader buffer. 


The print-out will appear as: 


A 

GOOD 

XXX 

BAD 

XXX 

B 

GOOD 

XXX 

BAD 

XXX 

C 

GOOD 

XXXXXX 

BAD 

XXXXXX 

D 

GOOD 

xxxxxx 

BAD 

XXXXXX 

ACS 0 

may be placed up 

to halt the 

program when an 

error occurs 


C( rr) will equal 2125 when halting during Part A, 2161 during part B, 
and 3012 when halting during Part C or D. Press CONTINUE to read the 
next frame in sequence. 

The Variable Reader Speed Test should be next performed. 

5 .3 Variable Reader Speed Test 

This test requires a fan-fold test tape, with a punchci. binary count nattern. 
The reader is selected using the KUA iOT only. 


AC switches 2 through 17 control the speed of the reader; the slowest 
reader speed is obtained with all ACS up, and normal speed with all ACS 
down. ACS 0 and 1 have no effect on the reading speed. 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. 


b. Set the ADDRESS switches to 2400. 
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c. Press I/O RESET, and then START. 

If no errors are indicated, go on ttb paragraph 5.4. 

Error Identification 

If an error occurs, a print-out will givfc in order, what the data read 

was expected to be, and the data read from the reader buffer. The print-out 

will appear as: 

GOOD XXX BAD XXX 

ACS 0 will provide a halt on error when in the up position. The halt 
will occur wi th the PC = 2435. Pressing CONTINUE will cause the 
next frame in sequence to be read . 

5.4 Random Read and Stall 

This test requires o fan-fold test tape with a punched binary count 
pattern . 

The Random Read and Stall routine reads a random number of frames 
with a fixed stall time between each frame. After reading the random 
number of frames the routine reads a random number of frames at full 
speed. The routine reads a maximum of 14 frames with a stall between 
each frame, and a maximum of 51?frames at full speed. 

ACS Functions for Section 5 

ACS FUNCTION 

0 Stop on error (1) 

Don't stop (0) 

1 'Scope mode (1). Ignore errors. 

a. Place the test tape in the reader with the punched pattern over the 
reader's photo cells. Set the ADDRESS switches to 2500. 

b. Press I/O RESET, and then START. 

The test will run until stopped by the operator. 

Error Identification 

A print-out occurs for each detected error. The format is as shown below: 
GOOD XXX BAD XXX 

The type of error which will occur most frequently with this test will be 
when the test tape gets out of sync with the program. The bad data wi II be 
+ 1 count or more of the good data. 



After each print-out the program continues on in sequence. 


Gub-Routine Abstracts 


When starting from address 300, the program performs control logic testa 

1 through 7 using the reader lOT RSA. At the completion of test 7, tests 

2 through 7 are repeated using reader lOT RSB. 

Test 1 - Illegal Instruction 

An illegal instruction of 700110 is executed. If an RRB or RCF instruction 
is executed, the contents of the AC will be changed and an error halt occurs 
with C(PC) = 316. No tape movement should be observed during this test. 

Test 2 - Test for Reader Flag Cleared 

An RSF lOT ’ executed. If the program was started properly by pressing 
I/O RESET and then START, the flag should be cleared at this point. An 
error halt with C(PC) = 325 occtirs if the flag is set. If this occurs, it 
maybe the resvilt of I/O power clear not clearing the flag , or the result 
of tape movement during test 1 . Place ACS 1 up , and press CONTINUE to enter 
scope mode. 

Test 3 - Set the Reader IlS^ and Test for Illegal RSF 

Either an RSA or RSB lOT is used to select the reader. The program then 
stalls for 100 MSEC., after which an illegal conditional skip is attempted 
using 700110. If the skip occurs, an error halt occurs with C(PC) = 361. 

If no skip occurs, the reader flag is next tested. An RSF lOT is executed, 
and if no skip occurs, an error halt with C(PC) = 355, or 356 depending 
in which mode the reader was selected. Placing ACSl up and pressing CONTINUE 
after any error halt, will place the program in scope mode. 

Test U - Clear the Reader Flug w; uh RRB and RCF 

The reader flag is first set with an RSA or RSB lOT and then immediately 
cleared by< executing an RRB. If the test is successful, the flag is again 
set and then cleared by executing an RCF lOT. If RRB does not clear the 
flag, an error halt occurs with C(PC) = h2'i (RSA), or h2k (RSB). If RCF does 
not clear the flag, a halt occurs with C(PC) = ii30 (RSA) or ^+31 (RSB). Place 
ACSl up, and press CONTINUE to enter scope mode. 



The reader flag is first sot uslnr' either the RI’-A or RGB lOT. The reader 
is again selected and the flag tested for being cleared using the lOT RSF. 

The flag should be cleared immediately after an RGA or RGB lOT. If not, an 
error halt occurs with C(PC) = 515 (RGA), or 516 (RGB). Place AC51 up, and 
press CONTINUE to enter scope mode. 

Test 6 - Interrupt Test 

An I/O Power Clear ((’AF) is first executed, followed by a 210 MSEC stall. No 
interrupt should occur at this point. If an interrupt occurs, the I/O status 
word is tested to determine the device which caused the interrupt. If the 

reader caused the interrupt, an e'rror halt occurs with C(PC) =636. A spurious 

interrupt will cause a hedt with G(PC) = 6U0. The AC will contain the I/O 
status word at each halt. 

If the acbove test is successful, an attempted program interrupt using either the 
RSA or RGB lOT is then performed. The reader is selected, and a stall of 
100 Mi ce is done, waiting for a pli^ogram interrupt. If no interrupt occurs, a 

halt w:..th C(PC) = 625 (RGA), or 626 (RGB) occurs. Place ACGl \rp and press 

CONTINUE to enter scops' mode . 

Test T - Reader API Test 


Test 7 is performed only if ACG 6 is on a 1 to indicate that an API option is 
installed. The routine assumes the readers' API channel address to be 50, and 
API priority level 2. 

The first test performed makes certain a reader API break does not occur when 
the reader flag is 0. An error halt occurs with the PC = 1021 in the event of 
an API break. 

The reader flag is then se-t by the program, and an API break is attempted. No 
API break results in an error halt with the PC = IOH 7 . If an API break occurs, 
the API status word is read and tested for level 2 active. If level 2 is not 
active, an error halt occurs with the PC = IO 56 . ACG 1 on a 1 will enable 
a scope loop for any of the above errors. 

Test 8 - Reader No-Tape Test 

Test 8 tests the response of the reader logic under no tape conditions. The test 
tape is first removed from the reader, and the test is started from location 1^01. 
A test is first made to determine whether the no tape indicator has been set 
by the absence of tape in the reader. If true, the rf^ader flag is then tested 
to make sure it had been set as a result of the no tape flag. If both tests 
are successful, the program halts at location 1^23, at which point the tape 
is replaced in the reader. 
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The TAPE FEED button is then pressed and released. Pressing CONTINUE 
will cause the program to check fo‘ !he no tape indicator being reset 
by TAPE FEED. F all three of the above tests are successful a halt 
occurs at location 1430. 

ERRORS 

Error Halts and Descriptions 


Error halts and descriptions are given in the tables below for the control 
Logic Tests. 

'Scope me.' 10/ be entered for any single test by placing ACSl 
up, and pressing CONTINUE after the error halt. 'Scope mode 
may also be entered by restarting the desired test. Restarting addresses 
are given in the tables immediately following each error halt table. 

Table of Error Halts for Control Logic Tests 


C(pc ) 

TAG 

TEST^ 

IDENTIFICATION 

316 

EOl 

1 

700110 changed contents of thi 

325 

E02 

2 

Reader flag on illegally 

■ 55 

EA03 

3 

Flag wasn't set using RSA 

356 

EB03 


Flag wasn't set using RSB 

If no tape movement: 

If tape moved: 

361 

E04 

3 

Skip occurred using 700110 
after an RSA or RSB 

423 

EA05 

4 

Flag wasn't cleared using RSA 
& RRB 

424 

EB05 

4 

Flag wasn't cleared using RSB 
& RRB 

430 

EA06 

4 

Flag wasn't cleared using RSA 

& RCF 

431 

EB06 

4 

Flag wasn't cleared using RSB 
& RCF 

515 

EAll 

5 

Flag wasn't cleared using RSA 

516 

EB11 

5 

Flag wasn't cleared using RSB 
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'The ~ the data read from the yeader buffer after each of the halts EB12 
through E915. 


625 

m6 

6 

No intecxxq^ occxuxed usiag BSA - vaited 70 MS. 

626 

EB16 

6 

No interrupt occurred using BSB - waited 70 MS. 

636 

E16B 

6 

Reader caused interrupt v^ien not selected 

640 

E16C 

6 

%>urious interrupt 

652 

E16D 

6 

Interrupt not from reader AC = I/O status word. 

1021 

E17 

7 

An API break occurred with the reader flag cleared. 

1047 

E18 

7 

No API break fron the reader with the reader 
flag set. 

1056 

E19 

7 

An API break occurred, but priority level 2 is 
not active. Ma^se another device cauised the 
break, or the reader is on the wrong API level. 

1401 

NOTAPE 

8 

End of tests 2-7. Set the ADDRESS switches to 

14Q1, and press I/O RESET, and then START to begin 
test 8. 

1412 

EA20 

8 

NO TAPE flag not set. 

1421 

EA2^ 

8 

Reader flag won't set with tte NO-TAPE flar set. 

1427 

EA20C 

8 

Rpader flag won't clear with the NO-TAPE flag set. 

1434 

PKHLT3 

8 

Replace tape in the reader and Press Continuie. 

1442 

ERR2jaD 

8 

NO-TAPE flag didn't clear. 

1444 

OFFLINE 

8 

lUiN Reader "off". 

1452 

ERR2jSE; 

8 

No-Tape didn't set vhen the reader was turned off-line 

1454 

PHLT3A 

8 

End of the NO-TAPE test 
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Table of Restarting Adcfresses fo Initiafe 'Scope Mode 


'Scope mode should normally be initiated by placing AC51 up, and pressing 
CONTINUE after an error holt. In the event that 'scope mode must be 
entered by restarting any one test, the starting addresses for tests 1 through 
7 are listed in the table below. Tests 3 through 7 use the lOT instructions 
RSA, RSB, RRB, and RCF, and the starting address for any one test will 
''ory according to which lOT is to be tested. Place ACSl up before 
resto'-ting. 


Test ^ 'Scope lOT Operator Action Restart at 


Address 

1 

Illegal lOT 

Press I/O RESET, end then START 

300 

2 

RSF 

Press I/O >CSET, and then START 

321 

3 

RSA 

Depo.it 700104 into location 333. 

331 


RSB 

Deposit 700144 into location 333. 

331 

i 

RSA and RRB 

Deposit 700104 into location 333. 

400 


RSA and RCF 

Dep- sit 700104 into location 333, 
and 700 ’^2 into location 406. 

402 


RSB and RRB 

Deposit 700144 into location 333. 

400 


RSB and RCF 

Deposit 700144 into location 333, 




end 700102 into location 406 

402 

5 

RSA 

Deposit 700104 into location 333. 

500 


RSB 

Deposit 700144 into location 333. 

500 

6 


Deposit 7001 04 or 700144 into 



location 333, to test illegal interrupt; 

SA - 600 


6 To test no interrupt, deposit 

700104 or 700144 into location 
333. SA - 


612 
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7. RESTRfCTrONS 
None 

8. MISCELLANEOUS 


When looping on tests 2-7 the loop time is approximately 5 seconds. 

The Basic Data Check tests will take approximately 5 seconds. 

The Voriable Reader Speed and Random Read tests each run until stopped 
by the operator with PROGRAM STOP. 

^Ppl ications 

Loop on Tests 2-T of Section 1 

A loop on tests 2- 7 may be performed using either the RSA or Rtt lOT's 

If a test tape loop is to be used make sure the pottern is continued at the splice. 

If looping on tests 2-7 using the RSB lOT, moke sure channel 8 is 
continuously punched, and continued at the splice. 

To loop on tests 2-7 using RSA, place the test tape in the reader. 

1 . Set the ADDRESS switches to 317. 

2. Place ACS 4 up. 

3. Press I/O RESET, and then START. 
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To loop on teats 2-7 using RSB, place the test tape in the reader. 

1 . Set the ADDRESS switches to lOT^ 

2. Place ACS 4 up. 

3. Press I/O RESET, and then START. 

Basic Data Check Applications 

'Scope mode for part A, B, C or D of Section 3 may be entered by 
following the steps below: 

A. Place ACS 1 up, and press CONTINUE if a halt on error occurred, or 

B. Press PROGRAM STOP. 

C. Place >^5 1 up. 

D. Set the ADDRESS switches to: 

a. 2100 for part A (RSA and RRB) 

b. 2133 for part B (RSA and RCF) 

c. 2167 for part C (RSB and RRB) 

d. 2215 for part D (RSB and RC*^ ) 

E. Press I/O RESET, and then START. 

9. PROGRAM DESCRIPTION 

Tests 1 through 8 are provided to find catastrophic type failures. The basic 
functions of the reader logic are first tested, and then as many timing tests 
as possible are performed. If these tests run the remaining problems will be 
in the individual data paths. 

A provision for looping on tests 2 through 7 is provided. 

The Basic Data Check tests are provided to insure that the reader is 
capable of correctly reading data from tape. All reader lOT's are used 
during the test. 

The Variable Speed and Random Read tests are designed to test the 
reader's mechanical adjustments by varying the motor speed, and 
rate of redder selection. The Binary Count portion of the test tape 
supplied provides the most stringent test. A test tape loop will not 
provide a satisfactory test, and should be used only during 'scope 
mode. 

10. LISTING 



I»A6C 1 


19HSR 


^SR19 




.title NSR1» 

/POP-15 HIGH SPEED READER DIAGNOSTIC • TAPE 

1 

00000 

00000 

000000 

.ABS 

/ 

/copyright OCT, 201 1970, DIGITAL EQUIPMENT 
/MAYNARD, HASS, 

/ 

/INTERRUPT routine 
,10C 0 

0 

CORP 

00001 

600001 

JMP 1 /INTERRUPT ON ILLEGALLY 

00002 

777777 

LAH -1 


00003 

777777 

LAW -1 


00004 

777777 

law .1 


00009 

777777 

LAW -1 




, EJECT 




PACE 


19HSR HSR19 




/TAPE 

LOOP generator 



20200 



,LOC 200 



20200 

790004 

BGNl 

LAS 

/TEST 

SWITCH register 

?020i 

740010 


ral 



00202 

741400 


S2L 



00203 

600231 


JMP ALT10 

/PUNCH 

I'S AND 0iS 

00204 

740010 


RAL 



00209 

741400 


SZL 



00206 

600221 


JMP PBNCNT 

/PUNCH 

binary Count 

00207 

740010 


RAL 



00210 

741400 


SZL 



00211 

600264 


jMP PSWREC 

/PUNCH 

ALL I’S 

00212 

600200 


JMP BCNl 



00213 

600200 


JMP BCNl 




/ 

/TAPE PUNCH ROUTINE 


/ 


00214 

000000 

pncha 

0 

00215 

700204 


PSA 

00216 

700201 


PSF 

00217 

600216 


JMP ,-1 

00220 

620214 


JMP. PNCHA 


/ 




/BINARY 

COUNT 

00221 

202027 

/ 

pbncnt 

lac one 

00222 

100214 


JMS PNCHA 

00223 

740001 


CMA 

00224 

100214 


JMS PNCH 

00229 

740001 


CMA 

00226 

342027 


TAD ONE 

00227 

100214 


JMS PNCHA 

20230 

600223 

i 

jMP PBNCNT*2 



/ 

/PUNCH 

i 

alternate i»s 

00231 

750001 

/ 

ALT10 

CLAICMA 

00232 

100214 


JMS PNCHA 

00233 

740001 


CMA 

00234 

600232 

> 

JMP ,-2 

00250 


/ 

.LOC 290 

0025? 

777760 

SETUP 

law -20 

00251 

043030 


DAC WORK 

00252 

750004 


las 

00253 

043031 


DAC wORkI 

00254 

700104 


RSA 

00255 

700101 


PSF 

00256 

600255 


JMP 

00257 

443030 


I S Z w C « K 

0026? 

600254 


JMP ,^4 

00261 

443031 


ISZ WORKl 

00262 

600261 


JMP ,-l 

00263 

600250 


J^'R SETUP 




. r iECT 


and 0*S 


/AC-600000 = about 2d0 MS STALL 


/FRAME counter 
/STALL 





19HSR 


HSR19 


/fUNCH all ONIS 


/ 


01264 

777777 

PS^JRE 


la^ ^1 


9t269 

100214 



JWS pncma 


9fa66 

600219 



JMP PN/CMA*! 




/HIGH 

SPEED PAPER TAPE 

READER diagnostic 



/ 

/part 

/ 

1 

, INSTRUCTION AND CONTROL TESTING 

003i0 


/ 


,LOC 300 




/TEST 

/ 

TSTl 

1 

, illegal instruction 

00300 

102991 


JMS CRLF 


0090^ 

140013 



OZM 13 


00302 

790001 



CL4ICWA 


00303 

700110 



700110 

/NO iot bits, Instruction 

00304 

740200 



SZA 

/BIT 14 should clear AC 

00309 

600314 



JMP rberr 


00306 

103002 



JMS SCOPE 

/CHECK FOR SCQPf MODE 

00307 

600311 



JMP ,p2 


00310 

600301 



JMP tST1*1 


00311 

440013 



ISZ 13 


00312 

600302 



JMP T$T1*2 


00013. 

600317 



JMP TS7a-2 


00314 

103002 

RBCRR 


JMS SCOPE 

/CRRORi INFORHATION DELIVERED 

00319 

740040 

efi 


WLT 

/ILLEGALLV 

00316 

600301 

/ 


JMP T5Ti*1 




/ 

/TEST 

2 

, TEST For flag 

OFF 

00317 

203019 

/ 


L4C CKRSA 


00320 

060333 



04C R8AB 


00321 

709101 

TST2 


RSF 

/FLAG SHHULO be off 

00322 

600326 



JMP OK 

/SUCCESSFUL test 

00323 

103092 



JMS SCOPE 

/CHECK fob tCQFC MODE 






/FAILURE FATW 

00324 

740040 

E02 


HLT 

/FLAG IS QN ILLEGALLV 

00329 

600321 



JMP TST2 


00326 

103002 

OK 


JMS SCOPE 

/CHECK for scope MODE 

00327 

600331 



JMP TST3 

/SUCCESS patw 

00330 

600321 



JMP TST2 

.eject 




PACE 4 19HSR HSR15 

/ 




/TEST 

3, iLLEGAt RSF test A^D 




/SET ElAG WITM RSA A\3 

RSB 




/SKIP 

ONRSE 



00331 

777763 

TST3 

law rl5 



00332 

040013 

y ’ 

DAC l3 



00333 

000000 

RSAB 

0 



00334 

102767 


JVS STAL70 



00335 

700110 


700110 



00336 

741000 


SKP 



00337 

600357 


JMP SKPERR 



00340 

700101 


Rsr 

/ELAG 

SHOULD BE set 

00541 

600347 


j“P ER3 



00342 

440013 


IS2 13 



00343 

600333 


RSAB 



00344 

103002 


SCOPE 


/SUCCESS PATM 

00345 

600400 


jwp tsT4 



00346 

600333 


jyp TST3*2 



00347 

103002 

ER3 

jws SCOPE 


/error PaTH 

00350 

741000 


SKP 



00351 

600333 


JMP tST3*2 



00352 

200333 


LAC RSAB 



00353 

543015 


SAD CKRSA 



00354 

740040 

£A03 

MLT 

/ELAC 

not setting AET 

00355 

740040 

EB03 

WIT 

/ELAG 

not SETTImg aet 

00356 

600331 


JMP TST3 



00357 

103002 

skperp 

JMS SCOPE 



00360 

740040 

E04 

HIT 

/ILLEGAL RSA OR RSB 

00361 

600333 


jMP RSAB 






.eject 




RSA 

RSB 




1SH80 

HS015 





/TEST 

4, RESET flag 

WITH RRB AND RCF 

00400 


y 

,LOC 400 


00400 

203020 

/ 

TST4 

lac ckrrb 


00401 

040406 


DAC ,♦& 


00402 

400333 


XCT nSAB 


00403 

700101 


RSF 


00404 

600403 


JMP ,.l 


00405 

750000 


CLA 


00406 

000000 


0 

/RRB OR RCP 

00407 

043021 


DAC STORl 


00410 

700101 


Rsr 

/CHECK RESET OF FLAG 

00411 

600432 


JMP 0K4 


00412 

103002 


JMS SCORE 

/error paTh, flag still on 

00413 

741000 


SKR 


00414 

600402 


jMP TST4*2 


00415 

203027 


lac flag 


00416 

740200 


SiA 

/CHECK FOR RRB OR RCF 

00417 

600425 


JMP ,*6 

/RCF 

00420 

200333 


lac RSA8 

/CHECK for RSA or RSB 

00421 

543015 


SAO CKRSA 

/ERROR. FLAG StiLL SET 

00422 

740040 

EA05 

hlt 

/AFTER RRB WITH RSa 

00423 

740040 

CB05 

HLT 

/FLAG STILL SET aFTER 
/RRB WITH RSB 

00424 

600402 


jMp TST4*2 


00425 

200333 


lac rsab 


00426 

543015 


SAO CKRSA 

/ERROR. FLAG STILL SET 

00427 

740140 

EA06 

MLT 

/AFTER RCF WITH rSa 

00430 

740040 

EB06 

HLT 

/FLAG STILL SET AFTER 
/RCF WIT« RSi 

00431 

600402 


JMP TST4*2 

/SUCCESS FaTh 

00432 

103002 

OKA 

JMS SCOPE 

00433 

741000 


S4P 


00434 

600402 


J»P T ST 4*2 


00430 

203027 


LAC flag 


00436 

740000 


&0A 

/CHECK FOR R0B OR RCF 

00437 

600500 


J>»P TST5 


00440 

443027 


IS2 FLAG 

/SET FLAG 

00441 

203017 


L'AC okpcf 


00442 

600401 


jMP TST4*1 



.eject 



PACE 6 


15HSR 


HSR15 


/ 

/test 5, RESET FLAG 


/ 


00900 



,LCC 

: 500 

00900 

143027 

TST5 

DEM 

flag 

00901 

400333 


XCT 

RSAB 

00902 

700101 


RSF 


00903 

600902 


JMP 

. •! 

00904 

400333 


XCT 

RSAB 

00909 

700101 


RSF 


00906 

600917 


jMP 

OK5a 

00907 

103002 


JMS 

SCOPE 

00910 

741000 


SKP 


00911 

600500 


JMP 

TST5 

00912 

200333 


LAC 

RSAB 

00913 

943019 


SAD 

CKRSA 

00914 

740040 

EAU 

MLT 


00919 

740040 

EBll 

HLT 


00916 

600900 


JMP 

TST5 

00917 

103002 

0K5a 

JMS 

SCOPE 

00920 

741000 


SKP 


00921 

600901 


JMP 

TST5*1 

00922 

700101 


RSF 


00923 

600922 


JMP 

,•1 

00924 

600600 


JMP 

TST6 




.EJECT 


ITu RSA OR RSB 


/RESET ELAC 
/RESET Flag 

/ERROR, Flag still on 

/DIO NOT clear WITW RSA 
/DIO NOT clear with RSB 

/WAIT FOR Flag 



/ 19HSR ^SR19 

/^EST i. »M»FPquRT TEST 


/ 


00«i0 



,LOC 600 




00000 

203003 

TST6 

LAC JMR5 




00001 

040001 


DAC 1 




00002 

703302 


CAE 




00009 

709042 


ION 




00004 

102767 


JMS STAL70 



/WAIT For illegal int 

00009 

102767 


JHS STAL70 




00000 

102767 


JWS STAL70 




00607 

103002 


JMS SCOPE 



/OK. Check for scope mode 

00010 

741000 


SKP 




00611 

600602 


JMP TST6*2 



/SCOPE 

00012 

203069 

tsrint 

lac JMP6 




00013 

040001 


OAC 1 




00014 

700042 


ION 




00019 

400333 


XCT RSAB 




00616 

102767 


JMS STAL70 



/WAIT For INT 

00017 

103002 


JMS SCOPE 



/error, no int 

00020 

741000 


SKP 




00021 

600012 


JMP tsrint 



/SCOPE 

00022 

203019 


lac ckrsa 




00023 

940333 


SAD RSAB 



USING RSA 

00024 

7410040 

EA16 

HLT 

/NO 

INT 

00629 

740040 

EB16 

HIT 

/NO 

INT 

using RSa 

00626 

600612 


JMP tsrint 





.EJECT 



8 

19HSR 

HSR19 





/INTERRUPT SERVICE 

ROUTInjE 

80627 

10S002 

HINT 

JMS SCOPE 

/check roR SCOPE MODE 

00630 

741000 


SKP 


00631 

600602 


JMP TST6*2 

/SCOPE 

00632 

700314 


lORS 

/READ I/O STATUS 

00633 

903160 


and (200000 


00634 

740200 


SZA 

/SEE IE READER FlAC SET 

00639 

740040 

E16B 

HUT 

/reader fuac set 

00636 

700314 


lORS 


00637 

740040 

E16C 

hut 

/SPURIOUS INT, ACPl/0 STATUS 

00640 

600602 


JMP TST6*2 


00641 

103002 

tsrelc: 

JMS SCOPE 

/return from INT 

00642 

741000 


SKP 


00643 

600612 


JMP TSRINT 

/SCOPE 

00644 

700314 


lORS 

/I/O STATUS 

0064S 

503161 


AND (177777 


00646 

741200 


SNA 

/MAKE SURE reader CAUSED INT, 

00647 

600693 


JMP 0K7 

/SUCCESS path 

00690 

700314 


lORS 


00651 

740040 

E16D 

HUT 

/SPURIOUS INT, ACfI/0 STATUS 

00692 

600612 


JMP TSRINT 


00693 

200690 

0K7 

UAC E160-1 


00694 

040001 


OAC 1 


00699 

700002 


lor 


00696 

601000 


JMP TST7 





.EJECT 




V 

19HSR 

HSR19 



01000 



,LOC 1000 




/TEST 

7, TEST API AND 

reader 

01000 

790004 

TST7 

las 

/TEST ACS 8 

01001 

903162 


AND (4000 

01002 

741200 


SNA 

/NO API PRESENT 

01003 

601063 


JMP 0K8A*4 

01004 

703302 


CAP 


01009 

203163 


lac (JMP C17,1 

/ERROR path 

01006 

040090 


OAC 90 

/90 IS reader Channel 

01007 

794002 

LOPS 

stlicla 


01010 

740020 


RAR 

/TURN ON API 

01011 

709904 


ISA 

01012 

740000 


NOP 


0101S 

740000 


NOP 

/CHECK FOR LOOP 

01014 

103002 


JHS SCOPE 

01019 

601022 


JMP OKS 

/NO LOOP 

01016 

601007 

j 

JMP LOPS 

/LOOP 

01017 

103002 

/ 

JMS SCOPE 

/COME HERE IP A BREAK 

01020 

740040 

C17 

HLT 

/error. API PROM reader 
/WITH NO reader PLAC. 

01021 

601007 


J.MP LOPS 



/ 

/NOW ATTCH^T an API break. THE READER SHOULD 
/bring up API LEVEL 2 ACTIVE AND BREAK TO 90, 


/ 


01022 

7rT740 

oks 

law *40 


01023 

043021 


OAC STORI 

/USE AS COUNTER 

01024 

200164 


LAC (37 


01029 

040010 


DAC 10 


01024 

203160 


lac (HLT 


0i02r 

060010 


DAC* 10 

/STORE HLT IN LOCS 

01030 

443021 


IS2 STORI 

/40 THRU 77, 

01031 

601027 


JMP ,•2 


01032 

703302 


CAP 


01033 

700104 

LOPS A 

R9A 

/set reader PLAC 

01034 

700101 


R8P 


01039- 

601034 


JMP ,-l 


01036 

203166 


LAC (JMP ROR 

/INITIALIZE LOC, 90 

01037 

040090 


DAC 90 

01040 

794002 


STLICLA 


01041 

740020 


RAR 

/ENABLE API 

01042 

70f0«4 


ISA 

01043 

740000 


NOP 


01044 

740000 


NOP 


01049 

740000 


NOP 


01046 

740040 

E18 

mlt 

/ERROR. NO API break 

01047 

601047 


JMP , 

/PROM reader, Press 
/CONT, POR A SCOPE LOOP, 




.EJECT 




PACE 10 19H8R HSR19 

/ 

/return here prom CHaNNEi address 50 


/ 


01050 

705512 

RDR 

705512 

/READ PRIORITY levels 

01051 

903167 


AND (20000 

/MASK level 2 Bit 

01092 

740200 


SZA 

/SHOULDN’T BE 0 

01093 

601097 


JMP 0K8a 

/SUCCESS path 

01054 

103002 


JMS SCOPE 

/CHECK rOR LOOP 

01055 

740040 

E19 

HLT 

/ERROR. READER CAUSED 

01056 

601033 


JMP L0P8A 

/API break o.k,, But level 

/2 ACTIVE IS NOT SET. 

01097 

703302 

/ 

0K8A 

CAT 

/CHECK POR LOOP 

01060 

103002 


JMS SCOPE 

01061 

741000 


SKP 

/NO LOOP 

01062 

601033 

y 

JMP L0P8A 

/LOOP 

01063 

790004 

/ 

las 


01064 

903167 


AND (20000 


01069 

740200 


SZA 

/CHECK TO LOOP TESTS 2"6 

01066 

601076 


JMP RSBlP*2 

/LOOP 

01067 

203016 


LAC CKRSB 


01070 

940333 


SAD RSA9 


01071 

601400 


JMP notape 

/NEXT TEST 

01072 

703302 


CAP 

/DO RSB TEST 

01073 

600320 

A 

JMP TST2-1 

01074 

203016 

/ 

RSBlP 

lac CKRSB 

/R8B lOT 

01079 

040333 


OAC RSAB 


01076 

703302 


CAP 


01^77. 

-600321 


JMP TST2 



/ 

.EJECT 



^A6E 


11 15HSH HSR19 




/TEST 8 

, NO tape TEST 

01400 



,LOC 1400 

01400 

740040 

/ 

\otape 

HLT 

01401 

700104 


RSA 

01402 

761000 


law 1000 

01403 

102767 


JMS STAL70 

01404 

700314 


lORS 

01409 

903170 


and (1000 

01406 

740200 


S0A 

01407 

601413 


jMp okflg 

01410 

109002 


JMS SCOPE 

01411 

740040 

EA20 

HLT 

01412 

601401 


JMP notape*! 

01413 

700314 

okflg 

lORS 

01414 

740010 


ral 

01419 

741100 


SPA 

01416 

601422 


JMP TSTRRB 

01417 

109002 


JMS SCOPE 

01420 

740040 

EA20B 

HLT 

01421 

601401 


JMP notape*! 

01422 

700112 

tstrrb 

RRB 

01423 

700101 


RSF 

01424 

601430 


JMP PESETA 

01429 

103002 


JMS SCOPE 

01426 

740040 

EA20C 

HLT 

01427 

601422 


JMP TSTRRB 

01430 

700104 

PESETA 

RSA 

01431 

761000 


law 1000 

01432 

102767 


JMS STAL70 

01433 

740040 

PRHLT3 

HLT 

01434 

700314 


lORS 

01439 

909170 


AND (1000 

01436 

741200 


SNA 

01437 

601443 


JMP offline 

01440 

109002 


JMS SCOPE 

01441 

740040 

ERR20D 

hlt 

01442 

601434 


JMP PRHLT3*1 

01443 

740040 

offline 

HLT 

01444 

700314 


iors 

01449 

903170 


and (1000 

01446 

740200 


S2A 

01447 

601493 


JMP PHLT3A 

01490 

103002 


JMS SCOPE 

01491 

740040 

ERR20E 

hlt 

01492 

601444 


JMP offline*! 

01493 

740040 

PHLT3A 

HLT 




.EJECT 


/REMOVE tape reader 

/SELECT reader 


/•NO"TAPE' should BE SET 


/E«RO«i 'NO- tape* not set, 


/READER Flag should be set 


/ERROR, reader FLAG DIDN'T SET 

/WITH 'NO-TAPE' set 

/CLEAR READER FlaC WITH *RRB» 

/DIO the flag Clear? 

/res 

/NO 

/READER Flag WON’T CLEAR WITH »N0-TAPE” SET, 
/RESET flag 


/REPLACE tape IN ThE READER 
/MASK ’NO-TAPE' flag. 

/OK, FLAG cleared 

/ERRORi 'nO-TAPe' flag DIDN’T CLEAR 
/TURN reader ’Off* 


/DIO NO-TaPE set? 

/rES, end of test 

/ERRORi 'NO-TAPE' DIDN’T SET 
/WITH reader 'OFF* 

/OK, END OF 'NO-TAPE' TEST 



12 

15HSR 

HSR15 




/ 

/ 

/random 

NUMBER generator 

0i<54 

000000 

genran 

0 

01455 

201502 


lac ranoex 

01456 

543171 


SAD (RANTBt*10 

01457 

741000 


SKP 

01460 

601470 


jMP rantad-i 

01461 

203172 


LAC (RAnTBL 

01462 

041502 


OAC RANOEX 

01463 

201501 


lac RANCON 

01464 

744010 


CLLIRAL 

01465 

741400 


SIL 

01466 

342027 


TAD ONE 

01467 

041501 


OAC RANCON 

01470 

221502 


lac* ranoex 

01471 

341501 

rantad 

TAO RANCON 

01472 

061502 


OAC* ranoex 

01473 

201514 


lac ransav 

01474 

740020 


RAR 

01475 

361502 


TAD* ranoex 

01476 

041514 


OAC RANSAV 

01477 

441502 


IS2 RANOEX 

01500 

621454 


jMP* genran 

01501 

123456 

/ 

RANCON 

123456 

01502 

001513 

RANOEX 

RANTBl.*10 

01503 

654321 

RANTBL 

654321 

01504 

361416 


361416 

01505 

055363 


055363 

01506 

546060 


546060 

01507 

243035 


243035 

01510 

762572 


762572 

01511 

453237 


453237 

01512 

150214 


150214 

01513 

000000 


0 

01514 

000000 

RANSAV 

0 

.EJECT 



19 

19HSR 

MSR15 

/tape 

LOOP SYNC ROU' 

e2P0ei 


y 

,LOC 2003 

02000 

000000 

SYNC 

? 

02001 

203173 


LAC (-3001 

02002 

042026 


DAC DELAY 

02P0S 

700104 


RSA 

02004 

700101 


RSF 

02009 

602004 


JHP .-1 

02006 

700112 


RRB 

0200T 

741200 


SNA 

02010 

602020 


JMP INSyNC 

02011 

442026 


ISZ DELAY 

02012 

602003 


JMP SYNC*3 

02013 

203061 


lac PRINT3 

02014 

040011 


DAC 11 

02019 

102962 


JMS MSCl 

02016 

740040 

PRHLT4 

WLT 

02017 

602001 


JMP SYNC*1 

02020 

777679 

INSYNC 

law .103 

02021 

043022 


DAC ST0R2 

02022 

143023 


OiM ST0R2A 

02029 

777776 


law .2 

02024 

049029 


DAC ST0R4 

02029 

622000 


JMP» SYNC 

02026 

000000 

delay 

0 

02027 

000001 

ONE 

1 

02030 

000377 

TH77 

377 


.EJECT 


/CMECK FOR SYNC CHAR. 


/TIMED OUT 


/BINARY COUNT RSB 

/ALPHA 



PAGE 14 

19HSR 

HSR19 






/POP- 

9 MICM 

SPEED reader diagnostic . TapE 

2 



/ 

/data 

CHECK 

routine for rsa, rsb and rcf 




/RSA 

AND RRB 


02100 



.IOC 

; 2100 


02100 

102000 

rsack 

JMS 

SYNC 


02101 

760301 


law 

301 


02102 

043067 


dac 

INFl*l 


02103 

202244 


LAC 

BLOCK 


02104 

043024 


DAC 

ST0R3 


02109 

203041 


LAC 

PRINT! 


02106 

040011 


DAC 

11 


02107 

700104 


RSA 



02110 

700101 


RSF 



02111 

602110 


JMP 

. •! 


02112 

700112 


RRB 

/READ A WORD 


02113 

043021 


DAC 

STORl 


02114 

943023 


SAD 

S70R2A /COMPARE 


02119 

602129 


JMP 

OKRSA 


02116 

103002 


JMS 

SCOPE 


02117 

741000 


SKP 



02120 

602123 


JMP 

,*3 


02121 

103609 


JMS 

SETUPl /ERROR 


02122 

102962 


JMS 

HS61 


02123 

103010 


JMS 

ERHLT 


02124 

740040 


wL7 



02129 

102246 

OKRSA 

JMS 

CKTAPE 


02126 

443024 


IS2 

ST0R3 /CHECK FOR 

END OF BLOCK 

02127 

602109 


JMP 

RSACKA5 


02130 

103002 


JMS 

SCOPE /CHECK for 

SCOPE MODE 

02131 

602133 


JMP 

RSARCr 


02132 

602100 


JMP 

RSACK /SCOPE mode 




.EJECT 





19HSR 

HSR19 




/RSA A^D RCr 


02133 

102000 

PSARcr JMS SYNC 


02134 

760302 

law 302 


02139 

043067 

OAC INTi*! 


02136 

202244 

lac block 


02137 

043024 

OAC ST0R3 


02140 

203041 

lac PRINT! 


02141 

040011 

OAC 11 


02142 

700104 

RSA 


02143 

700101 

Rsr 


02144 

602143 

JMP ,"l 


02149 

79t»M 

CLA 


02146 

700102 

RCf 

/READ CHARi 

02147 

043021 

OAC STORl 


02190 

943023 

SAD ST0R2A 

/COMPARE 

02191 

602161 

JMP OKRcr 


02192 

103002 

JMS SCOPE 


02193 

741000 

SKP 


02194 

602197 

JMP ,*3 


02159 

102609 

JMS SETUPI 

/ERROR 

02196 

102962 

JMS MSCl 


02197 

103010 

JMS erwlt 


02160 

740040 

HLT 


02161 

102246 

OKRCr JMS CKTaPE 


02162 

443024 

ISZ ST0R3 

/CHECK for end of BLOCKS 

02163 

602140 

JMP rsARCF*5 


02164 

103002 

JMS SCOPE 


02169 

602167 

JMP RSBCK 


02166 

602133 

JMP RSARCr 




,f JECT 




16 

15HSR 

HSR15 





/RSB 

A\D RR0 


02167 

102000 

/ 

RSBCk 

JMS SY^C 


02170 

760303 


law 303 


02171 

043067 


DAC INFl*! 


02172 

202245 


lac blocka 


02175 

043024 


DAC ST0R3 


02174 

700144 


RSB 


02175 

700101 


RSF 


02176 

602175 


JMP ,,1 


02177 

700112 


RRB 

/READ char. 

02200 

043021 


DAC STORl 


02201 

543022 


SAD ST0R2 

/compare 

02202 

602207 


JMP ,*5 


02203 

103002 


jMS SCOPE 


02204 

741000 


SKP 


02205 

741000 


SKP 


02206 

102654 


JMS SETUP3 


02207 

102246 


JMS cktapc 


02210 

443024 


ISH STeR3 


02211 

602174 


JMP RSBCK*5 


02212 

103002 


JMS SCOPE 

/CHECK fob scope MOOE 

02213 

602215 


JMP RSBRCF 


02214 

602167 

/ 

jMP RSBCK 




/ 

/RCF 

AND RSB 


02215 

102000 

RSBRCr JMS SYNC 


02216 

760304 


law 304 


02217 

043067 


DAC INFl*! 


02220 

202245 


LAC BLOCKA 


02221 

043024 


DAC ST0R3 


02222 

700144 


RSB 

/SELECT 

02223 

700101 


Rsr 


02224 

602223 


JMP ,-l 


02225 

750000 


CLA 


02226 

700102 


Rcr 

/READ 

02227 

043021 


D^C STORl 


02230 

543022 


SAD ST0R2 

/compare 

02231 

602236 


JMP ,*5 


02232 

103002 


JMS SCOPE 


02233 

741000 


SKP 


02234 

741000 


SKP 


02235 

102654 


J^'S SETJP3 


02236 

102246 


JMS CK7APE 


02237 

443024 


IS? STnR3 


02240 

602222 


JMP RSBRCF*2 


02241 

103002 


JMS SCOPE 

/C^ECK rcSSCCPE ‘^CDE 




.eject 




^A6C 




HSRiS 

PRHLT5 


22242 

22243 

22244 

22245 


02246 

32247 

02253 

02251 

02252 

02255 

02254 

022 ^ 

02256 
02297 
02260 
02261 
02262 

02263 

02264 
02269 
02266 


740040 

602219 

777401 

777753 


009000 

203022 

343174 

043022 

203023 

740001 

902030 

04U2S 

443029 

622246 

203023 

342027 

502030 

043023 

777776 

043029 

622246 


BLOCK 

blocka 

/ 

/ 

cktape 


/END or data tests 


MLT 

JMP PSBRCr 

777421 

777753 


0 

lac ST0R2 /COMPLEMENT BINARY 

tad (747475 
DAC ST0R2 

lac ST0R2A /complement ALPHA 

CMA 

AND TH77 
DAC ST0R2A 

ISE ST0R4 /BUMP COUNT IF 0 

jMP» CKTAPE 

lac ST0R2A /ALPHA MODE 

TAO ONE 
AND TH77 
DAC ST0R2A 

law .2 

OAC ST0R4 
JMP* CRTAPC 

.eject 



PACE 18 


15HSR 


HSR15 


/ 

/variable reader speed 


/ 


02400 


i 

.LOC 

; 2400 

02400 

102000 

/ 

VARSPD 

JMS 

SYNC 

02401 

143023 


OEM 

ST0R2A 

02402 

790004 


LAS 


02403 

903161 


AND 

(177777 

02404 

740001 


CMA 


02409 

042949 


OAC 

STLSTR 

02406 

442949 


IS? 

STLSTR 

02407 

602406 


JMP 

I ■! 

02410 

700104 


RSA 


02411 

700101 


Rsr 


«2412 

602411 


JMP 

. •! 

02413 

700112 


RRB 


02414 

943023 


SAD 

ST0R2A 

02415 

602431 


JMP 

VARENO 

02416 

043021 


DAC 

STORl 

02417 

103002 


JMS 

SCOPE 

02420 

741000 


SKP 


02421 

602431 


JMP 

VARENO 

02422 

102609 


JMS 

SETUPl 

02423 

203041 


LAC 

PRINT! 

02424 

342027 


TAD 

ONE 

02429 

040011 


DAC 

11 

02426 

102962 


JMS 

MSGl 

02427 

103010 


JMS 

erhlt 

02430 

740040 


HLT 


02431 

102246 

vareno 

JMS 

cktape 

02432 

602402 


JMP 

VARSPD*2 




.EJECT 


CftMTROLA ACS 2-17 SET SPEED 

/LOAD ACS 

/delay 

/READ 

/COMPARE 

/CHECK for SCOPE MODE 

/check for halt on error 



PA6C Iv 

19H00 

HS019 





/RANDOM 

read and STAli. 


02900 



,LOC 2900 


02900 

102000 

y 

mSkp 

JMS SVNC 


02901 

101494 


JMS GCNRAN 

/MAX, Of 17 FRAHfS PER BLOCK 

02902 

909179 


AND 

02903 

740001 


CMA 


00904 

042946 


QAC LOOP 


02909 

102912 


JMS READ 

/read One frame 

02906 

442946 


IS? LOOP 

/DONE If Skip 

02907 

602909 


JMP ,.2 


02910 

703302 


CAP 

/FIRE The stop delay 

02911 

602901 


JMP WSKP*l 
.fJECt 




PAOe 20 

15HSR 

HSR15 




/READ 

and compare loop 

02512 

000000 

READ 

? 

02513 

700194 


RSA /READER IN ALP^A 

02514 

700101 


Rsr 

02515 

602514 


JMP ,-i 

02516 

700112 


RRB /READ A char, 

02517 

043021 


DAC STORl 

02520 

543023 


SAO ST0R2A /COMPARE 

02521 

602534 


JMP TAPECK 

02522 

103002 


JMS SCOPE 

02523 

741000 


SKP 

02524 

602534 


JMP TAPECK /INHIBIT PRINT 

02525 

102605 


JMS SETUPl /BAD 

02526 

203041 


LAC PRINTI 

02527 

342027 


TAD ONE 

02530 

040011 


DAC 11 

02531 

102562 


JMS MSCl 

02532 

103010 


JMS ERHLT 

02533 

740040 


HLT 

02534 

102246 

TAPECK 

JMS CKTAPE 

02535 

622512 


JMP* read /CHECK for cno or Block 



/ 

/constants and variables 

02536 

777736 

C0N7 

• 42 

02537 

000020 

CONS 

20 

02540 

000040 

CON9 

40 

02541 

000777 

lnclim 

777 

02542 

777657 

M120 

• 121 

02543 

777776 

Ml 

• 2 

02544 

777747 

M30 

-31 

02545 

000000 

stlstr 

0 

02546 

000000 

LOOP 

0 

02547 

000000 

LOOPA 

0 

02550 

000260 

N260 

260 

02551 

000000 

CRLF 

0 

02552 

760215 


law 215 

02553 

700406 


TLS 

02554 

700401 


TSF 

02555 

602554 


J^P ,-1 

02556 

542560 


SAD .*2 

02557 

622551 


JMP* crlp 

02560 

760212 


law 212 

02561 

602553 


JMP cRLr*2 




.EJECT 



Is. 


?2562 0000«0 

02963 220011 

02S#4 T0«4t« 

02!^f 349^64 

025t4 741249 

02447 741040 

02970 602474 

02971 704401 

02972 604971 

02973 602963 

02974 777761 

02979 943031 

02976 770000 

04977 043039 

04600 443939 

04691 602640 

04602 443931 

42603 602976 

02604 624962 

02609 000000 

02606 203021 

01607 909096 

02110 102637 

02611 043107 

02612 209021 

02613 903099 

04*14 102646 

02610 043110 

02616 203921 

02617 903094 

02620 342990 

02*21 043111 

02*24 203013 

01*23 90SI9* 

01*44 104*37 

04*49 044976 

04*2* 203923 

02627 903099 

02630 101646 

02631 043077 

02*32 203043 

02*33 903094 

02*34 344099 

02*39 043100 

02636 622609 


Hsn 9 

/TTv PHINJT routines 
/ 

NiSCl 0 

LAC* 11 
TLS 

TAD end 

SlA 

SK 4 

JMP CRWAIT 

Tsr 

JMP ,-1 
JMP MSC 1*1 
CRWAIT law .17 

DAC WORKl 
law .10000 
OAC WORK 
IS 2 WORK 
JMP ,*1 
!SI WORKl 
JMP CRWA 1 T *2 

jMf« mSGI 

/ 

SETUPI 0 

lac stori 
ANO HSKS 
JMS R 0 TAT 6 
DAC BADl 
lac stori 

ANO MSK 2 
JMS R 0 TAT 3 
OAC BAOl*l 

lac stori 

ANO mSKI 
TAO N 260 
OAC 9 Atll «2 
lac ST 042 A 
and MSK 3 
JKS ROTAr 6 
OAC COOOl 
lac ST 0 R 2 A 
ANO MSK 2 
JMS R 0 TAT 3 

DAC coooi*i 
LAC ST 0 R 2 A 
AND MSKl 
TAO N 260 
DAC G 00 D 1*2 
JMP* SETUP! 
.EJECT 



22 

19HSR 

HSR15 


02637 

000000 

R0TAT6 

0 

02640 

742020 


RTR 

02641 

742020 



02642 

742020 



02643 

342990 


TAD N260 

02644 

744000 


cut 

02649 

622637 

J 

JMP* R0TAT6 

02646 

000000 

/ 

R0TAT3 

0 

02647 

742020 


RTR 

02690 

740020 


RAR 

02691 

342990 


TAD M260 

02692 

744000 


CLL 

02693 

622646 

/ 

JMR* R0TAT3 

02694 

000000 

/ 

SCTUPl 

0 

02699 

203067 


LAC INPi*! 

02696 

700406 


TLS 

02697 

700401 


TSr 

02660 

602697 


JMP ,-l 

02661 

203047 


LAC PRINT4 

02662 

040011 


OAC 11 

02663 

203022 


lAC ST0R2 

02664 

043023 


DAC ST0R2A 

02669 

102667 


J^S ,*2 
jMp TYPEl 

02666 

602701 


02667 

000000 

TyPE2 

0 

02670 

777773 


L A W »9 

02671 

043040 


OAC CNTA 

02672 

220011 


LAC« 11 

02673 

700406 


TLS 

02674 

700401 


TSP 

02679 

602674 


jyP ,-l 

02676 

443040 


IS2 CNTa 

02677 

602672 


JMP ,.9 

02700 

622667 


JMP# TYPE2 

02701 

777772 

TYPEl 

L A W «6 

02702 

042766 


OAC AWAY 

02703 

203176 


LAC (700000 

02704 

905022 


and ST0R2 

02709 

744000 


CLL 

02706 

742010 


RTL 

02707 

742010 


RTL 

02710 

342590 


TAD N260 

32711 

042765 


DAC TRBlES 

02712 

203022 


lAC STOR2 

02713 

742010 


R7L 

02714 

740010 


RAL 

02719 

043022 


DAC STCR2 

02716 

102720 


j^S TvPe.3 




»A«I tw 

ISMSK 

MS013 


i|9>i 

0i00t0 

Tyifs 

0 

mat 

202741 


lac trbles 

wu 

700404 


TLS 

aaaaa 

700401 


Tsr 


402723 


jMP .•! 

aa?a» 

442740 


Ill AWAY 

aaaa* 

422720 


jMP» TY4C3 

aaatT 

777272 

TY0E4 

law -6 

aaasa 

042744 


OAC AWAY 

aaasi 

102447 


JMS TYPE2 

02732 

203174 


lac (700000 

02733 

303021 


AND STORl 

01734 

744000 


CLL 

02730 

742010 


RTl, 

02734 

742011 


rtl 

01737 

342030 


TAD N260 

02740 

042743 


OAC TRBLES 

01741 

203021 


LAC STORl 

02742 

742110 


RTL 

02743 

741010 


RAL 

12744 

043021 


DAC STORl 

12743 

102747 


JM8 TYPES 

02744 

402732 


JMR TYPE4*3 

02747 

000000 

TYPES 

0 

02730 

202743 


lac trbles 

02731 

700406 


TLS 

02732 

701401 


tsp 

02733 

612732 


JMP .•! 

02734 

442744 


IS2 AWAY 

02733 

422747 


JMP« TYPES 

02734 

112331 


JM8 CRLP 

§2757 

203023 


lac ST0R2A 

02740 

043022 


OAC ST0R2 

02741 

102747 


JMS stalts 

02742 

103011 


JWS ERHLT 

02743 

740040 


MLT 

02744 

422634 


SETUPS 

02743 

000000 

tbbles 

0 

02744 

000000 

away 

0 

.EJECT 



PACE 24 19HSR HSR15 


02767 

000000 

STAL70 

0 

/70 MS 

stall 

02770 

203001 


lac m6 



02771 

04303^0 


DAC work 



02772 

770000 


law *10000 



02773 

043031 


DAC WORKl 



02774 

443031 


ISH WORKl 



02775 

602774 


JMP ,•! 



02776 

443030 


IS2 WORK 



02777 

602772 


JMP STAl70*3 



03000 

622767 


JMP* STAL70 



03001 

777771 

h6 

j 

• 7 



03002 

000000 

/ 

SCOPE 

0 


rOR SCOPE MODE 

03003 

750004 


LAS 

/CHECK 

03004 

742010 


rtl 



03005 

741400 


SZL 


/yesi Scope mode 

03006 

443002 


1S2 SCOPE 


03007 

623002 


JMP* SCOPE 



03010 

000000 

/ 

ERHLT 

0 

/CHECK 

FOR halt on error 

03011 

750004 


LAS 



03012 

740100 


8MA 



03013 

443010 


ISH ERHlT 


/NO HALT 

03014 

623010 


JMP* ERHlT 
.EJECT 





2. 

19H8I? 

HSR15 





/constantSi variables Etc, 

PI3215 

700104 

f 

CKRSA 

700104 

/RSA 107 

03C"16 

700144 

ckrsb 

700144 

/RSB lOT 

03017 

700102 

CKRCF 

700102 

/RCF lOT 

03220 

700112 

CKRR9 

700112 

/RR0 lOT 

03921 

000000 

y 

STORl 

0 

/THESE NEXT 6 FOR 

03022 

000000 

ST0R2 

0 

/OATA word STORAGE 

03023 

010000 

ST0R2A 

0 


03024 

000000 

ST0R3 

0 


03029 

000000 

ST0R4 

0 


03026 

000000 

S70R5 

0 


03027 

000000 

flag 

0 

/RSA« RSB Flag 

03030 

000000 

WORK 

0 

/THESE 3uSED 

03031 

000000 

WORK! 

0 

/IN timing loops 

03032 

000000 

W0RK2 

0 


09 WS"^' 

nmr 

ms: 

.im*' 

/TrtEsE'' Four used 

03034 

776944 

C0N3 

.1234 

/IN timing loops 

03039 

771623 

C0N9 

.6195 


0S036 

008777 

C0N6 

3777 


03037 

000000 

COUNTA 

0 


03040 

000000 

CNTA 

0 


03041 

003066 

PRlNTl 

INfl 


03042 

000000 

blstor 

0 

/BLOCK LENGTH 

03043 

000000 

CHACNIT 

0 

/character counter 

03044 

009000 

cntcn 

0 

/COUNT or TEN 

03049 

001000 

STORlM 

0 

/error count 

01946 

000000 

LASTAL 

0 

/last stall time 

03047 

003132 

PRINT4 

INf 4 


03090 

760301 

/ 

A 

760301 

/TTY CHAP, A 

01091 

760301 

B 

760302 

/ditto B 

03092 

760303 

C 

760303 

/ditto c 

00093 

760304 

0 

760304 

/ditto 0 

00094 

000007 

MSKl 

7 


00099 

000070 

MSK2 

70 


03096 

000300 

M8K3 

300 


03097 

000700 

MSK4 

700 


03060 

007000 

MSK9 

7000 


03061 

003114 

PRINTS 

lNr3 


03062 

003149 

PRINT9 

INFS 


03063 

600627 

JMP5 

JWP ILINT 

03064 

777H3 

END 

777963 


03069 

600641 

JMP6 

JMP TSRFlC 


.EJECT 



PACE 36 19H8R HSR15 




/TTY 

print routines 


03066 

000000 

INPl 

0 


0S067 

000000 


z 

/AiBfCi OR 0 

03070 

000240 


240 

/SPACE 

03071 

000307 


307 

/G 

03072 

000317 


317 

/O 

03073 

000317 


317 

/O 

03074 

000304 


304 

/D 

03079 

000240 


240 

/SPACE 

03076 

000330 

GOOOl 

330 

n 

03077 

000330 


330 

/X 

03100 

000330 


330 

n 

03101 

000240 


240 

/SPACE 

03103 

000240 


240 

/SPACE 

03103 

000302 


302 

/B 

03104 

^00301 


301 

/A 

03109 

000304 


304 

/D 

03106 

000240 


240 

/SPACE 

03107 

000330 

BAOl 

330 

/X 

03110 

000330 


330 

/X 

03111 

000330 


330 

/X 

03112 

000212 


212 

/ir 

03113 

000219 


215 

/CR 

03114 

000000 

INf3 

0 


03119 

000303 


303 

/C 

03116 

000301 


301 

/A 

03117 

000316 


316 

/N 

03120 

000316 


316 

/N 

03121 

000317 


317 

/O 

03122 

000324 


324 

/T 

03123 

000240 


240 

/SPACE 

03124 

000323 


323 

/S 

03129 

000331 


331 

/Y 

03126 

000316 


316 

/N 

03127 

000303 


303 

/C 

03130 

000212 


212 

/LF 

03131 

000219 


219 

.Eject 

/CR 



•1N»I Vf 
99132 

mss 

9S1S4 

09133 

09194 

091S7 

09149 

09141 

09142 

09143 
03144 

09149 

09146 

09147 
09190 
S9191 
99192 
09193 
09104 
09199 

09196 

09197 


09160 

03161 

09162 

09169 
09104 
09109 
09106 
09167 

09170 

09171 

09172 
09179 
09174 
'09179 
09176 


10400 

H9019 



000090 

1N74 

0 


000907 


307 

/G 

000317 


317 

/O 

000917 


317 

/o 

0m04 


304 

/O 

90fiM0 


240 

/97ACe 

000340 . 


240 

/s7Aec 

090302* 


302 

/B 

000901 


301 

/A 

000904 


304 

/D 

000240 


240 

/SPACE 

000000 

lNr9 

0 


000000 


0 

/X 

000000 


0 

/X 

000000 


0 

/X 

000297 


297 

/SLASH 

000323 


329 

/S 

000309 


309 

/E 

000909 


303 

/C 

009340 


240 

/SPACE 

000112 


212 

/Lf 

000219 

j 

219 

/C« 

AAAAAA 

/ 

.tNO 


200000 

•L 



177777 

•L 



000000 

•L 



001017 

K 



•00097 

4L 



709040 

•L 



Hlf90 

4L 



9209f0 

•L 



011000 

#L 



001913 




091009 

•1 



774777 

•L 



747479 

tL 



00H17 

tl 



700000 

4L 




SriEf0S177 


NO C00O0 links 



